home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / qwrite11.arc / QDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1986-10-30  |  660b  |  22 lines
  1. {$I qwik11.inc}
  2.  
  3. var i,j,k,l: byte;
  4.     Str: String[75];
  5.  
  6. begin
  7.   Str:= ' Qwrite Screen Utilities ';
  8.   Qfill (1,1,112,' ',2000);   {  Clear Screen }
  9.   for i:=1 to 25 do
  10.   begin
  11.     j:= random (15);
  12.     k:= random (60);
  13.     for l:=1 to 8 do
  14.     Qfill (1+j+l,1+k,1+j+k,#178,20);
  15.   end;
  16.   QwriteV ( 3,27, 47, Str);
  17.   Qwrite  ( 4,32, 47,' Version 1.1 ');
  18.   Qwrite  (12, 3, 31,'Qwrite will write with new attributes that you specify direct to the screen.');
  19.   Qwrite  (15, 3, -1,'Qwrite will also use existing attributes when you do not even know or care.');
  20.   Qattr   (15,24,199,8);    { highlight the word 'existing' }
  21.   GotoRC (21, 1);
  22. end.